(COMMENT BPS 17000. REGPDL 4000. SPECPDL 2000.)

(comment (macrodef if (p a b) (cond (p a) (t b))))

(comment  DOESN'T WORK
(defun iff macro (l) ((lambda (f) (rplaca l (car f)) (rplaca l (cdr f)))
(list 'cond (list (cadr l) (caddr l)) (list t (cadddr l)))))
)

(PROGN
	(FASLOAD DEMON FAS DSK (AID RPG))
	(HELP)

(SETSYNTAX 361 'SPLICING '(LAMBDA () (IOC Q) (ASCII 40)))
(SETSYNTAX 347 'SPLICING '(LAMBDA () (IOC G) (ASCII 40)))
(SETQ undf-fnctn '(LAMBDA (FN) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR FN)) (TYO 32.)
	(PRINC '|Undefined Function. Either type the name /
of a function to substitute or ↑G: |)
	(NCONS (READ))))
(SETQ unbnd-vrbl '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Unbound variable. Either type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-type-arg '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Bad argument to function - probably wrong type. /
Type a value to use or ↑G: |)
	(NCONS (READ))))
(SETQ wrng-no-args '(LAMBDA (VR) (TERPRI)
	(PRINC '/;)
	(PRIN1 (CAR VR)) (TYO 32.)
 	(PRINC '|Wrong number of arguments to form. /
Type a form to use or ↑G: |)
	(NCONS (READ))))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))

(defun ≤ (m n) (not (< n m)))

(defun ≥ (m n) (not (> n m)))

(defun if macro (l) (list 'cond (list (cadr l) (caddr l)) (list 't (cadddr l))))


(DEFUN LOWER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 I)))
(DEFUN UPPER () (DO ((I 141 (1+ I)))
		    ((LESSP 172 I))
		    (SETSYNTAX I 2 (- I 40))))

	'Done!)